!--------------------------------
! Programa dedicado a calcular
! a evolucao da velocidade de um ciclista
! ideal, "perfeitamente circular
! e sem atrito".

! As velocidades relacionadas aa cada
! instante de tempo sao calculadas com base
! no metodo de Euler.

!
! Programa compilado e testado com:
! $ gfortran -o exerA exerA.f90
! $ ./exerA
! 
! Forma de utilizacao auto-explicativa
! atravez de comentarios.
!
! _o_o_ oOo _o_o_ 24/10/2010


PROGRAM exerA
  IMPLICIT NONE
  INTEGER :: i
  REAL (KIND=8) :: vi, v0, dt, T, P=400, m=70

  write(*,*) "Qual a velocidade inicial do ciclista?"
  read(*,*) vi
  write(*,*) "Qual o intervalo de tempo para o calculo iterativo?"
  read(*,*) dt
  write(*,*) "por quanto tempo?"
  read(*,*) T

  OPEN(11,file='vel1_out.dat')
  write(11,*) 0, vi

  i=1
  DO WHILE (i<int(T/dt))
    vi=vi+ ( P/(m*vi) )*dt
    write(11,*) i*dt, vi
    i=i+1
  END DO
end PROGRAM











